home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor1 / trap.src < prev    next >
Text File  |  1991-05-29  |  487b  |  22 lines
  1. %%HP: T(3)A(R)F(.);
  2. @ TRAP, by Bill Wickes  [See IFERR.DOC for details.  -jkh-]
  3. \<< 0 \-> et
  4.   \<< { IFERR 1 50
  5.              FOR j
  6.               "YOUR CLEANUP PROC." 1 DISP 
  7.               "#" j \->STR + " HERE" + 2 DISP
  8.              NEXT 
  9.         THEN et EVAL
  10.         ELSE DONE
  11.         END } OBJ\-> DROP
  12.     'et' STO 
  13.     IFERR 1 1000
  14.       FOR j
  15.         "YOUR MAIN PROC." 1 DISP
  16.         "#" j \->STR " NOW" + + 2 DISP
  17.       NEXT
  18.     THEN et EVAL
  19.     END
  20.   \>>
  21. \>>
  22.